home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / GoodBye / JohnKennedy / February96.lha / MASTERCLASS / TEST.REXX < prev   
Encoding:
OS/2 REXX Batch file  |  1995-12-04  |  751 b   |  50 lines
  1. /* 
  2.     test
  3. */
  4.  
  5.  
  6. address command /* Use AmigaDOS */
  7.  
  8. say c2d('"')
  9. say d2c(34)
  10.  
  11. number=1
  12.  
  13. if number~=0 then call ProcessFiles()
  14.  
  15. say "The End!"
  16. exit
  17.  
  18.  
  19. ProcessFiles:
  20.  
  21. answer=''
  22.  
  23. do while (answer~="D" & answer~="M" & answer~="C")
  24.     say "[D]elete files, [M]ove to new directory or [C]ancel?"
  25.     parse pull answer
  26.     answer=upper(answer)
  27. end
  28.  
  29. select
  30.     when answer='M' then call MoveFiles()
  31.     when answer='D' then call DeleteFiles()
  32.     when answer='C' then return
  33. end
  34.  
  35. return
  36.  
  37. MoveFiles:
  38.     say "Moving files..."
  39.     return
  40.  
  41. DeleteFiles:
  42.     say "Deleting files..."
  43.     call open(infile,"t:report",'r')
  44.     do while ~eof(infile)
  45.         data='list '||d2c(34)||readln(infile)||d2c(34)
  46.        interpret(data)
  47.     end
  48.     call close(infile)
  49.     return
  50.